home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 7.st / KAMIKAZE.ARC / INIT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-14  |  3.4 KB  |  161 lines
  1.  
  2.  
  3. #include <osbind.h>
  4. #include "kamikaze.h"
  5.  
  6.  
  7. /* handle on the a-line */
  8. extern char *ainit();
  9. char *aline;
  10.  
  11. /* colors, and a copy of original to restore on exit */
  12. WORD sys_cmap[16] = { 
  13.     0x333,    0x444,    0x777,    0x000,
  14.     0x555,    0x700,    0x607,    0x410,
  15.     0x273,    0x560,    0x700,    0x361,
  16.     0x500,    0x722,    0x575,    0x070,
  17.     };
  18. static WORD color_env[16];
  19.  
  20. /* VDI/GEM communications variables */
  21. WORD contrl[12], intin[128], ptsin[128], intout[128], ptsout[128];
  22. WORD gl_apid = -1;
  23. WORD handle;
  24. WORD gr_handle;
  25. WORD gr_hwchar, gr_hhchar, gr_hwbox, gr_hhbox;
  26. WORD gem_mrez;    /* gem in medium rez? */
  27.  
  28. WORD *pscreen, *cscreen;  /* buffer, physical, and drawing screens */
  29. static WORD mouse_bx, mouse_by, gem_colr;
  30. static WORD initted_color;
  31. static WORD irez;
  32. WORD screen_bounds[] = { 0, 0, 319, 199};
  33.  
  34. /* set_for_gem and set_for_jim - functions that let me run at low rez
  35.    while doing file requestor and file io at whatever rez GEM thinks
  36.    it is - necessary for file requestor to appear ok, and for system
  37.    io error dialogs to be centered etc.
  38.    Thanks to Dave Staugas (of Neochrome) for the necessary magic aline
  39.    peeks and pokes! */
  40. set_for_gem()
  41. {
  42. WORD i;
  43.  
  44. wait_penup();
  45. for (i=0; i<22000; i++)
  46.     ;    /* just stall - hey I'm experimenting */
  47. Setpallete(color_env);    /* restore start-up colors */
  48. vs_clip(handle, 0, screen_bounds);
  49. gem_rez();        /* screen rez */
  50. }
  51.  
  52.  
  53. jim_rez()
  54. {
  55. Setscreen( -1L, -1L, 0);
  56. *((WORD *)(aline-692)) = 319;
  57. *((WORD *)(aline-690)) = 199;
  58. *((WORD *)(aline-666)) = 16;
  59. }
  60.  
  61. gem_rez()
  62. {
  63. if (gem_mrez)
  64.     {
  65.     Setscreen( -1L, -1L, 1);
  66.     *((WORD *)(aline-692)) = 639;
  67.     *((WORD *)(aline-690)) = 199;
  68.     *((WORD *)(aline-666)) = 4;
  69.     }
  70. }
  71.  
  72.  
  73. init_sys()
  74. {
  75. WORD work_in[11];
  76. WORD work_out[57];
  77.  
  78.  
  79.  
  80. if ( (gl_apid = appl_init()) == -1)
  81.     {
  82.     exit(-1);
  83.     }
  84. aline = ainit();
  85. get_cmap(color_env);
  86. Setpallete(sys_cmap);    /* and now set flicker colors */
  87.  
  88. initted_color = 1;
  89.  
  90. /* save initial rez ... we'll see if GEM agrees with this later */
  91. if ( (irez = Getrez()) != 0)
  92.     {
  93.     if (irez != 1)
  94.         {
  95.         puts("PULL can't run on black and white systems, sorry");
  96.         exit(-3);
  97.         }
  98.     }
  99.  
  100. /* save mouse wrap-around */
  101. mouse_bx = *((WORD *)(aline-692));
  102. mouse_by = *((WORD *)(aline-690));
  103. /* save # of colors gem thinks exist */
  104. gem_colr = *((WORD *)(aline-666));
  105.  
  106. gr_handle = graf_handle(&gr_hwchar, &gr_hhchar, &gr_hwbox, &gr_hhbox);
  107. handle = gr_handle;
  108. stuff_words(work_in, 1, 10);
  109. work_in[10] = 2;
  110. v_opnvwk(work_in, &handle, work_out);
  111. if (handle == 0)
  112.     return(-5);
  113. if (work_out[0] == 639)
  114.     {
  115.     gem_mrez = 1;    /* see what GEM thinks rez is in so file-requestor can 
  116.                         work */
  117.     /* poke in initial mouse location (in case off-screen for lo-rez */
  118.     *((WORD *)(aline-602)) = 160;
  119.     *((WORD *)(aline-600)) = 100;
  120.     }
  121. if (!init_mem())
  122.     {
  123.     return(-6);
  124.     }
  125. if (!init_freem())
  126.     {
  127.     puts("Couldn't init freem()");
  128.     return(-7);
  129.     }
  130. jim_rez();
  131. pscreen = cscreen = (WORD *)Physbase();
  132. return(1);
  133. }
  134.  
  135.  
  136. uninit_sys()
  137. {
  138. WORD dummy;
  139. WORD i;
  140. Vector ourmbvec;
  141.  
  142. wait_penup();
  143. for (i=0; i<22000; i++)
  144.     ;    /* just stall - hey I'm experimenting */
  145. set_for_gem();
  146. /*magic poke to set mouse wrap-around*/
  147. *((WORD *)(aline-692)) = mouse_bx;
  148. *((WORD *)(aline-690)) = mouse_by;
  149. *((WORD *)(aline-666)) = gem_colr;
  150. Setscreen( -1L, -1L, irez);
  151.  
  152. /*restore palette...*/
  153. if (initted_color)
  154.     Setpallete(color_env);
  155. if (handle != 0)
  156.     v_clsvwk(handle);
  157. if (gl_apid != -1)
  158.     appl_exit(0);
  159. }
  160.  
  161.